DirRename Subroutine

public subroutine DirRename(dir, dir2)

rename a directory

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: dir
character(len=*), intent(in) :: dir2

Variables

Type Visibility Attributes Name Initial
character(len=100), public :: cmd

Source Code

SUBROUTINE DirRename &
!
(dir,dir2)

IMPLICIT NONE

!Arguments with intent(in):
CHARACTER (LEN = *), INTENT(IN) :: dir
CHARACTER (LEN = *), INTENT(IN) :: dir2

! Local declarations:  
CHARACTER (LEN = 100)      :: cmd
!------------end of declaration------------------------------------------------

IF (DirExists (dir2)) THEN
  CALL Catch ('warning', 'FileSys',  &
       'trying to rename an existing directory: ', &
       argument = dir2  )
  RETURN
END IF


IF (GetOS () == WIN32) THEN !detected Windows OS
    cmd = 'rename ' // dir // ' ' // dir2
    CALL System (cmd)
ELSE !detected unix like OS, including linux
    cmd = 'mv ' // dir // ' ' // dir2
    CALL System (cmd)
END IF



END SUBROUTINE DirRename